home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / MONTHCMB.CD < prev    next >
Encoding:
INI File  |  1996-01-18  |  7.5 KB  |  553 lines

  1. [MainInfo$]
  2. CCVer=2.0
  3. Compatible20=1
  4. UnitName=MonthCmb
  5. NewClassName=TMonthCombo
  6. ParentClassName=TComboBox
  7. DefaultPalette=Standard
  8. CopyrightLine=A public domain component
  9. FormMode=0
  10. FormFile=
  11.  
  12. [Units$]
  13. Lines=9
  14. L1=WinTypes
  15. L2=WinProcs
  16. L3=Messages
  17. L4=SysUtils
  18. L5=Classes
  19. L6=Controls
  20. L7=Forms
  21. L8=Graphics
  22. L9=Stdctrls
  23.  
  24. [ItemList$]
  25. Create=Method
  26. Destroy=Method
  27. OnClick=ExistingEvent
  28. OnDblClick=ExistingEvent
  29. OnDragDrop=ExistingEvent
  30. OnMouseDown=ExistingEvent
  31. OnMouseMove=ExistingEvent
  32. OnMouseUp=ExistingEvent
  33. OnKeyUp=ExistingEvent
  34. OnKeyDown=ExistingEvent
  35. OnKeyPress=ExistingEvent
  36. OnEnter=ExistingEvent
  37. OnExit=ExistingEvent
  38. OnChange=ExistingEvent
  39. LongNames=Variable
  40. ShortNames=Variable
  41. Abbreviate=Property
  42. InitMonth=Property
  43. Items=Property
  44. ThisMonth=Method
  45. Loaded=Method
  46. Style=Property
  47. Text=Property
  48. Sorted=Property
  49. Width=Property
  50.  
  51. [Global$]
  52. Descr=Combobox of months
  53. DefaultCode=1
  54.  
  55. [Code$]
  56. Lines=0
  57.  
  58. [Help$]
  59. Lines=0
  60.  
  61. [Create]
  62. Descr=
  63. DefaultCode=2
  64. Kind=2
  65. Header=Create(AOwner: TComponent)
  66. S=0
  67. Ov=1
  68. WinMessage=
  69.  
  70. [CreateCode$]
  71. Lines=7
  72. L1=begin
  73. L2=~~~~~inherited Create(AOwner);
  74. L3=~~~~~AutoInitialize;
  75. L4=
  76. L5=~~~~~{ Code to perform other tasks when the component is created }
  77. L6=
  78. L7=end;
  79.  
  80. [CreateHelp$]
  81. Lines=0
  82.  
  83. [Destroy]
  84. Descr=
  85. DefaultCode=4
  86. Kind=3
  87. Header=Destroy
  88. S=0
  89. Ov=1
  90. WinMessage=
  91.  
  92. [DestroyCode$]
  93. Lines=4
  94. L1=begin
  95. L2=~~~~~AutoDestroy;
  96. L3=~~~~~inherited Destroy;
  97. L4=end;
  98.  
  99. [DestroyHelp$]
  100. Lines=0
  101.  
  102. [OnClick]
  103. Descr=
  104. DefaultCode=7
  105. Ov=0
  106. P=1
  107. HandlerDecl=Click
  108.  
  109. [OnClickCode$]
  110. Lines=0
  111.  
  112. [OnClickHelp$]
  113. Lines=0
  114.  
  115. [OnDblClick]
  116. Descr=
  117. DefaultCode=8
  118. Ov=0
  119. P=1
  120. HandlerDecl=DblClick
  121.  
  122. [OnDblClickCode$]
  123. Lines=0
  124.  
  125. [OnDblClickHelp$]
  126. Lines=0
  127.  
  128. [OnDragDrop]
  129. Descr=
  130. DefaultCode=13
  131. Ov=0
  132. P=1
  133. HandlerDecl=DragDrop(DragObject: TObject; X, Y: Integer)
  134.  
  135. [OnDragDropCode$]
  136. Lines=0
  137.  
  138. [OnDragDropHelp$]
  139. Lines=0
  140.  
  141. [OnMouseDown]
  142. Descr=
  143. DefaultCode=13
  144. Ov=0
  145. P=1
  146. HandlerDecl=MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  147.  
  148. [OnMouseDownCode$]
  149. Lines=0
  150.  
  151. [OnMouseDownHelp$]
  152. Lines=0
  153.  
  154. [OnMouseMove]
  155. Descr=
  156. DefaultCode=13
  157. Ov=0
  158. P=1
  159. HandlerDecl=MouseMove(Shift: TShiftState; X, Y: Integer)
  160.  
  161. [OnMouseMoveCode$]
  162. Lines=0
  163.  
  164. [OnMouseMoveHelp$]
  165. Lines=0
  166.  
  167. [OnMouseUp]
  168. Descr=
  169. DefaultCode=13
  170. Ov=0
  171. P=1
  172. HandlerDecl=MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  173.  
  174. [OnMouseUpCode$]
  175. Lines=0
  176.  
  177. [OnMouseUpHelp$]
  178. Lines=0
  179.  
  180. [OnKeyUp]
  181. Descr=
  182. DefaultCode=13
  183. Ov=0
  184. P=1
  185. HandlerDecl=KeyUp(var Key: Word; Shift: TShiftState)
  186.  
  187. [OnKeyUpCode$]
  188. Lines=0
  189.  
  190. [OnKeyUpHelp$]
  191. Lines=0
  192.  
  193. [OnKeyDown]
  194. Descr=
  195. DefaultCode=10
  196. Ov=0
  197. P=1
  198. HandlerDecl=KeyDown(var Key: Word; Shift: TShiftState)
  199.  
  200. [OnKeyDownCode$]
  201. Lines=0
  202.  
  203. [OnKeyDownHelp$]
  204. Lines=0
  205.  
  206. [OnKeyPress]
  207. Descr=
  208. DefaultCode=9
  209. Ov=0
  210. P=1
  211. HandlerDecl=KeyPress(var Key : Char)
  212.  
  213. [OnKeyPressCode$]
  214. Lines=0
  215.  
  216. [OnKeyPressHelp$]
  217. Lines=0
  218.  
  219. [OnEnter]
  220. Descr=
  221. DefaultCode=13
  222. Ov=0
  223. P=1
  224. HandlerDecl=DoEnter
  225.  
  226. [OnEnterCode$]
  227. Lines=0
  228.  
  229. [OnEnterHelp$]
  230. Lines=0
  231.  
  232. [OnExit]
  233. Descr=
  234. DefaultCode=13
  235. Ov=0
  236. P=1
  237. HandlerDecl=DoExit
  238.  
  239. [OnExitCode$]
  240. Lines=0
  241.  
  242. [OnExitHelp$]
  243. Lines=0
  244.  
  245. [OnChange]
  246. Descr=
  247. DefaultCode=13
  248. Ov=0
  249. P=1
  250. HandlerDecl=Change
  251.  
  252. [OnChangeCode$]
  253. Lines=0
  254.  
  255. [OnChangeHelp$]
  256. Lines=0
  257.  
  258. [LongNames]
  259. Descr=Long forms of month names
  260. DefaultCode=17
  261. DataType=TStringList
  262. Default=
  263. Quote=0
  264. Sc=9
  265. IsObject=1
  266. IsSubComponent=0
  267.  
  268. [LongNamesCode$]
  269. Lines=14
  270. L1=begin
  271. L2=Add('January');
  272. L3=Add('February');
  273. L4=Add('March');
  274. L5=Add('April');
  275. L6=Add('May');
  276. L7=Add('June');
  277. L8=Add('July');
  278. L9=Add('August');
  279. L10=Add('September');
  280. L11=Add('October');
  281. L12=Add('November');
  282. L13=Add('December');
  283. L14=end;
  284.  
  285. [LongNamesHelp$]
  286. Lines=0
  287.  
  288. [ShortNames]
  289. Descr=Abbreviated month names
  290. DefaultCode=17
  291. DataType=TStringList
  292. Default=
  293. Quote=0
  294. Sc=9
  295. IsObject=1
  296. IsSubComponent=0
  297.  
  298. [ShortNamesCode$]
  299. Lines=14
  300. L1=begin
  301. L2=Add('Jan');
  302. L3=Add('Feb');
  303. L4=Add('Mar');
  304. L5=Add('April');
  305. L6=Add('May');
  306. L7=Add('June');
  307. L8=Add('July');
  308. L9=Add('Aug');
  309. L10=Add('Sept');
  310. L11=Add('Oct');
  311. L12=Add('Nov');
  312. L13=Add('Dec');
  313. L14=end;
  314.  
  315. [ShortNamesHelp$]
  316. Lines=0
  317.  
  318. [Abbreviate]
  319. Descr=Use abbreviated month names?
  320. DefaultCode=6
  321. IN=0
  322. RO=0
  323. PropType=Boolean
  324. PropDefault=False
  325. Quote=0
  326. RM=0
  327. WM=1
  328. Hide=0
  329. DefEdit=1
  330. All=0
  331. EC=
  332. EU=
  333. Link=
  334.  
  335. [AbbreviateCode$]
  336. Lines=19
  337. L1=var
  338. L2=~~~~~CurrItemIndex : Integer;
  339. L3=begin
  340. L4=~~~~~if FAbbreviate <> Value then
  341. L5=~~~~~~~~begin
  342. L6=~~~~~~~~CurrItemIndex := ItemIndex;
  343. L7=~~~~~~~~FAbbreviate := Value;
  344. L8=~~~~~~~~{ Update Items property of combo box based on
  345. L9=~~~~~~~~~~whether short names or long names were requested.
  346. L10=~~~~~~~~~~Reference Items as "inherited" because we have
  347. L11=~~~~~~~~~~hidden (unpublished) it in this component definition. }
  348. L12=~~~~~~~~if FAbbreviate then
  349. L13=~~~~~~~~~~~inherited Items.Assign(ShortNames)
  350. L14=~~~~~~~~else
  351. L15=~~~~~~~~~~~inherited Items.Assign(LongNames);
  352. L16=~~~~~~~~{ Restore setting of ItemIndex property }
  353. L17=~~~~~~~~ItemIndex := CurrItemIndex
  354. L18=~~~~~~~~end
  355. L19=end;
  356.  
  357. [AbbreviateHelp$]
  358. Lines=0
  359.  
  360. [InitMonth]
  361. Descr=Initialize contents with current month?
  362. DefaultCode=6
  363. IN=0
  364. RO=0
  365. PropType=Boolean
  366. PropDefault=True
  367. Quote=0
  368. RM=0
  369. WM=0
  370. Hide=0
  371. DefEdit=1
  372. All=0
  373. EC=
  374. EU=
  375. Link=
  376.  
  377. [InitMonthCode$]
  378. Lines=0
  379.  
  380. [InitMonthHelp$]
  381. Lines=0
  382.  
  383. [Items]
  384. Descr=Hide the parent's Items property
  385. DefaultCode=6
  386. IN=1
  387. RO=0
  388. PropType=TStrings
  389. PropDefault=
  390. Quote=0
  391. RM=0
  392. WM=0
  393. Hide=1
  394. DefEdit=1
  395. All=0
  396. EC=
  397. EU=
  398. Link=
  399.  
  400. [ItemsCode$]
  401. Lines=0
  402.  
  403. [ItemsHelp$]
  404. Lines=0
  405.  
  406. [ThisMonth]
  407. Descr=Current month (0 .. 11)
  408. DefaultCode=0
  409. Kind=1
  410. Header=ThisMonth : Integer
  411. S=0
  412. Ov=0
  413. WinMessage=
  414.  
  415. [ThisMonthCode$]
  416. Lines=7
  417. L1=var
  418. L2=~~~~~Year, Month, Day, Weekday : Word;
  419. L3=begin
  420. L4=~~~~~{ Obtain the date information }
  421. L5=~~~~~DecodeDate(Now, Year, Month, Day);
  422. L6=~~~~~Result := Month - 1
  423. L7=end;
  424.  
  425. [ThisMonthHelp$]
  426. Lines=0
  427.  
  428. [Loaded]
  429. Descr=
  430. DefaultCode=20
  431. Kind=0
  432. Header=Loaded
  433. S=0
  434. Ov=1
  435. WinMessage=
  436.  
  437. [LoadedCode$]
  438. Lines=19
  439. L1=begin
  440. L2=~~~~~inherited Loaded;
  441. L3=
  442. L4=~~~~~{ The following component setup is in the Loaded method because
  443. L5=~~~~~~~it depends on the other property values having been set: }
  444. L6=
  445. L7=~~~~~{ Set Items property.  Reference Items as "inherited" because
  446. L8=~~~~~~~we have hidden (unpublished) it in this component }
  447. L9=~~~~~if FAbbreviate then
  448. L10=~~~~~~~~inherited Items.Assign(ShortNames)
  449. L11=~~~~~else
  450. L12=~~~~~~~~inherited Items.Assign(LongNames);
  451. L13=
  452. L14=~~~~~{ Set ItemIndex property }
  453. L15=~~~~~if FInitMonth then
  454. L16=~~~~~~~~ItemIndex := ThisMonth
  455. L17=~~~~~else
  456. L18=~~~~~~~~ItemIndex := -1
  457. L19=end;
  458.  
  459. [LoadedHelp$]
  460. Lines=0
  461.  
  462. [Style]
  463. Descr=Hide the parent's Style property
  464. DefaultCode=6
  465. IN=1
  466. RO=0
  467. PropType=TComboBoxStyle
  468. PropDefault=csDropDownList
  469. Quote=0
  470. RM=0
  471. WM=0
  472. Hide=1
  473. DefEdit=1
  474. All=0
  475. EC=
  476. EU=
  477. Link=
  478.  
  479. [StyleCode$]
  480. Lines=0
  481.  
  482. [StyleHelp$]
  483. Lines=0
  484.  
  485. [Text]
  486. Descr=Hide the parent's Text property
  487. DefaultCode=6
  488. IN=1
  489. RO=0
  490. PropType=String
  491. PropDefault=
  492. Quote=0
  493. RM=0
  494. WM=0
  495. Hide=1
  496. DefEdit=1
  497. All=0
  498. EC=
  499. EU=
  500. Link=
  501.  
  502. [TextCode$]
  503. Lines=0
  504.  
  505. [TextHelp$]
  506. Lines=0
  507.  
  508. [Sorted]
  509. Descr=Items should always be unsorted
  510. DefaultCode=6
  511. IN=1
  512. RO=0
  513. PropType=Boolean
  514. PropDefault=False
  515. Quote=0
  516. RM=0
  517. WM=0
  518. Hide=1
  519. DefEdit=1
  520. All=0
  521. EC=
  522. EU=
  523. Link=
  524.  
  525. [SortedCode$]
  526. Lines=0
  527.  
  528. [SortedHelp$]
  529. Lines=0
  530.  
  531. [Width]
  532. Descr=Narrower than initial width for standard combo box
  533. DefaultCode=6
  534. IN=1
  535. RO=0
  536. PropType=Integer
  537. PropDefault=100
  538. Quote=0
  539. RM=0
  540. WM=0
  541. Hide=0
  542. DefEdit=1
  543. All=0
  544. EC=
  545. EU=
  546. Link=
  547.  
  548. [WidthCode$]
  549. Lines=0
  550.  
  551. [WidthHelp$]
  552. Lines=0
  553.